I'm sure it's been done before. But before, it was for a price... :)
What you should find with this text document is BS.dll, and BS.bas. The DLL contains the functions for binary shifting, and the VB module contains the function declarations.
BSx (Number As Long, Amount As Integer) As Long
Parameters:
Number - the number on which you wish to perform the binary shift
Amount - how many steps you wish to shift the number
Return Values:
Function returns the value of Number << or >> Amount.
Also with this document there should be a test application showing off the speed of the binary
shifting as opposed to VB division and another text file I wrote to explain binary shifting. Binary shifting turned out to be around about 1/3 faster. This may not sound like a lot, but in a processing time expensive game, this DLL COULD mean the difference between a nice and fast 30fps game, or a horrible slow 5fps game (Believe me, I know these things... ;)).
Enjoy!
NOTE:
BEFORE YOU OPEN THE VB PROJECT OR RUN IT, YOU WILL NEED TO COPY THE DLL AND BAS FILE TO THE BSTEST DIRECTORY.